Sub IRAMENU()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Sheets("MENU").Select
    Application.Calculation = xlCalculationAutomatic
End Sub